home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / verdll / verinfo.bas < prev    next >
Encoding:
BASIC Source File  |  1994-10-15  |  3.1 KB  |  103 lines
  1. 'VERINFO.BAS
  2. '-----------
  3. '
  4. '
  5. '' Place the following code in a single text file called VERINFO.BAS
  6. '
  7. ' The Global constants below are defined in the VER.H header file, also
  8. ' included in Microsoft C/C++ 7.0, and the Windows SDK.
  9. '
  10. ' NOTE: After copying this into a file in a text editor, modify each
  11. ' Declare statements so that each one uses only one, single line.
  12.  
  13.  
  14. Type VS_VERSION
  15. wLength As Integer
  16. wValueLength   As Integer
  17. szKey  As String * 16           ' "VS_VERSION_INFO"
  18. dwSignature As Long                     ' VS_FIXEDFILEINFO struct
  19. dwStrucVersion As Long
  20. dwFileVersionMS As Long
  21. dwFileVersionLS As Long
  22. dwProductVersionMS As Long
  23. dwProductVersionLS As Long
  24. dwFileFlagsMasks   As Long
  25. dwFileFlags As Long
  26. dwFileOS   As Long
  27. dwFileType As Long
  28. dwFileSubType  As Long
  29. dwFileDateMS   As Long
  30. dwFileDateLS   As Long
  31. End Type
  32.  
  33.  
  34. Declare Function GetFileVersionInfo% Lib "Ver.dll" (ByVal Filename$, ByVal dwhandle&, ByVal cbBuff&, ByVal lpvData$)
  35. Declare Function GetFileVersionInfoSize& Lib "Ver.dll" (ByVal Filename$, dwhandle&)
  36. Declare Sub hmemcpy Lib "kernel" (hpvDest As Any, hpvSrc As Any, ByVal cbBytes&)
  37. Declare Function GetSystemDirectory% Lib "kernel" (ByVal Path$, ByVal cbBytes%)
  38.  
  39.  
  40. ' **** VS_VERSION.dwFileFlags ****
  41. Global Const VS_FF_DEBUG = &H1&
  42. Global Const VS_FF_PRERELEASE = &H2&
  43. Global Const VS_FF_PATCHED = &H4&
  44. Global Const VS_FF_PRIVATEBUILD = &H8&
  45. Global Const VS_FF_INFOINFERRED = &H10&
  46. Global Const VS_FF_SPECIALBUILD = &H20&
  47.  
  48.  
  49. ' **** VS_VERSION.dwFileOS ****
  50. Global Const VOS_UNKNOWN = &H0&
  51. Global Const VOS_DOS = &H10000
  52. Global Const VOS_OS216 = &H20000
  53. Global Const VOS_OS232 = &H30000
  54. Global Const VOS_NT = &H40000
  55. Global Const VOS__BASE = &H0&
  56. Global Const VOS__WINDOWS16 = &H1&
  57. Global Const VOS__PM16 = &H2&
  58. Global Const VOS__PM32 = &H3&
  59. Global Const VOS__WINDOWS32 = &H4&
  60. Global Const VOS_DOS_WINDOWS16 = &H10001
  61. Global Const VOS_DOS_WINDOWS32 = &H10004
  62. Global Const VOS_OS216_PM16 = &H20002
  63. Global Const VOS_OS232_PM32 = &H30003
  64. Global Const VOS_NT_WINDOWS32 = &H40004
  65.  
  66. ' **** VS_VERSION.dwFileType ****
  67. Global Const VFT_UNKNOWN = &H0&
  68. Global Const VFT_APP = &H1&
  69. Global Const VFT_DLL = &H2&
  70. Global Const VFT_DRV = &H3&
  71. Global Const VFT_FONT = &H4&
  72. Global Const VFT_VXD = &H5&
  73. Global Const VFT_STATIC_LIB = &H7&
  74.  
  75. ' **** VS_VERSION.dwFileSubtype for VFT_WINDOWS_DRV ****
  76. Global Const VFT2_UNKNOWN = &H0&
  77. Global Const VFT2_DRV_PRINTER = &H1&
  78. Global Const VFT2_DRV_KEYBOARD = &H2&
  79. Global Const VFT2_DRV_LANGUAGE = &H3&
  80. Global Const VFT2_DRV_DISPLAY = &H4&
  81. Global Const VFT2_DRV_MOUSE = &H5&
  82. Global Const VFT2_DRV_NETWORK = &H6&
  83. Global Const VFT2_DRV_SYSTEM = &H7&
  84. Global Const VFT2_DRV_INSTALLABLE = &H8&
  85. Global Const VFT2_DRV_SOUND = &H9&
  86. Global Const VFT2_DRV_COMM = &HA&
  87.  
  88. ' **** VS_VERSION.dwFileSubtype for VFT_WINDOWS_FONT ****
  89. Global Const VFT2_FONT_RASTER = &H1&
  90. Global Const VFT2_FONT_VECTOR = &H2&
  91. Global Const VFT2_FONT_TRUETYPE = &H3&
  92.  
  93. ' **** Global variables used in both forms ****
  94. Global Filename$
  95. Global Directory$
  96. Global FileVer$
  97. Global ProdVer$
  98. Global FileFlags$
  99. Global FileOS$
  100. Global FileType$
  101. Global FileSubType$
  102.  
  103.